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{ ******************************************************************* > 

{ * * } 

{ * Apple /// Sophisticated Operating System (SOS) Pascal Interface * } 

{ * " * } 

{ ******************************************************************* j 

UNIT SOSIO; { Copyright 1982 Apple Computer, Inc. } 
INTERFACE 

{ Set to TRUE to compile SOS calls for: } 



{$SETC SOS_File_IO 

{$SETC SOS_Device_IO 

<$SETC SOS_Utility_IO 

{$SETC SOS_Memory_Mgt 

{$SETC SOS Plus IO 



TRUE} 
TRUE} 
TRUE} 
TRUE} 
TRUE} 



{ +++++++++++++++++++++++++++++++++++++++++++ DEVICE I/O } 
{$IFC SOS_Device_IO} 

Function SOS_D_Status ( DevNumb, StatusCode : Integer; 

Var StatusList, RetCode ) : Boolean; 
Function SOS_D_Control ( DevNumb, ControlCode : Integer; 

Var ControlList, RetCode ) : Boolean; 
Function SOS_Get_D_Num ( Var DevName, DevNumb, RetCode ) : Boolean; 
Function SOS_D_Info ( DevNo : Integer; Var DevName, DevList, RetCode ) 
: Boolean; 

{ $ENDC} 

{ +++++++++++++++++++++++++++++++++++++++++++ piL E i/o } 
{$IFC S0S_File_I0} 

Function SOS_Create ( Var Pathname; FilelD, AuxID, Storage, EOFBlk : Integer; 

Var RetCode ) : Boolean; 
Function SOSDestroy ( Var Pathname, RetCode > : Boolean; 
Function SOS_Rename ( Var OldPath, NewPath, RetCode ) : Boolean; 
Function SOS_Set_Info ( Var Pathname, FileList; ListLeng : Integer; 

Var Retcode) : Boolean; 
Function SOS_Get_Info ( Var Pathname, FileList; ListLeng : Integer; 

Var RetCode ) : Boolean; 
Function SOS_Volume ( Var DevName, VolName, TotalBlks, FreeBlks, RetCode ) 
: Boolean; 

Function SOS_Set_Pref ix ( Var Prefix, RetCode ) : Boolean; 
Function SOS_Get_Pref ix ( Var Prefix; Length : Integer; Var RetCode ) 

: Boolean; 

Function SOS_Open ( Var Path; ReqType, Pages : Integer; Var SysBuf, RefNumb, 

RetCode ) : Boolean; 
Function SOS_New_Line ( RefNumb, Flag : Integer; NewCh : Char; Var RetCode ) 

: Boolean; 

Function SOS_Read ( RefNumb : Integer; Var InputBuf; BytesReq : Integer; 

Var BytesRead, RetCode ) : Boolean; 
Function S0S_S_Read ( RefNumb : Integer; Var InputBuf; OffSet, 

BytesReq : Integer; Var BytesRead, RetCode ) : Boolean; 
Function SOS_Write ( RefNumb : Integer; Var OutputBuf; NumbBytes : Integer; 

Var RetCode ) : Boolean; 
Function SOS_S_Write ( RefNumb : Integer; Var OutputBuf; OffSet, 

NumbBytes : Integer; Var RetCode ) : Boolean; 
Function SOS_Close ( RefNumb : Integer; Var RetCode ) : Boolean; 
Function SOS_Flush ( RefNumb : Integer; Var RetCode ) : Boolean; 
Function SOS_Get_B_Mark ( RefNumb : Integer; Var BlockNumb, RetCode ) 

: Boolean; 

Function S0S_Get_B_E0F ( RefNumb : Integer; Var BlockNumb, RetCode ) 

: Boolean ; 

Function SOS_Set_B_Mark { RefNumb, Base, BlockNumb : Integer; Var RetCode ) 

: Boolean; 

Function SOS_Set_B_EOF ( RefNumb, Base, BlockNumb : Integer; Var RetCode ) 

: Boolean; 

Function SOS_Get_Mark ( RefNumb : Integer; Var Low, Hi, RetCode ) : Boolean; 
Function S0S_Get_E0F ( RefNumb : Integer; Var Low, Hi, RetCode ) : Boolean; 
Function SOS_Set_Mark ( RefNumb, Base, Low, Hi : Integer; Var RetCode ) 

: Boolean; 

Function S0S_Set_E0F ( RefNumb, Base, Low, Hi : Integer; Var RetCode ) 
: Boolean; 

Function SOS_Set_Lev ( Level : Integer; Var RetCode : Integer ) : Boolean; 

Function SOS_Get_Lev ( Var Level : Integer ) : Boolean; 

<$ENDC} 
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80 ++++++++++++++ UTILITIES } 

81 {$IFC SOS_Utility_IO} 

82 Function SOS_S_Fence ( Priority : Integer ) : Boolean; 

83 Function SOS_G_Fence { Var Priority : Integer ) : Boolean; 

84 Function SOS_Set_Time ( Var Time ) : Boolean; 

85 Function SOS_Get_Time ( Var Time ) : Boolean; 

86 Function SOS_Get_Analog ( Mode : Integer; Var Value, RetCode ) : Boolean; 

87 Function SOS_Terminate : Boolean; 

88 { SENDC} 
89 

90 { +++++++++++++++++++++++++++++++++++++++++++ MEMORY MANAGEMENT } 
91 

92 {$IFC SOS_Memory_Mgt } 

93 Function SOS_Request_Seg ( Base, Limit, Segld : Integer; Var SegNumb, 

94 ~ RetCode ) : Boolean; 

95 Function SOS_Find_Seg ( SrchMode, Segld : Integer; Var Fivelnts ) : Boolean; 

96 Function SOS_Change_Seg ( SegNumb, ChgMode : Integer; Var Pages, 

97 RetCode ) : Boolean; 

98 Function SOS_G_Seg_Inf o ( SegNumb : Integer; Var Fivelnts ) : Boolean; 

99 Function SOS_G_Seg_Numb ( SegAddr : Integer; Var SegNumb, RetCode ) : Boolean; 

100 Function SOS_Rel_Seg ( SegNumb : Integer; Var RetCode ) : Boolean; 

101 { $ENDC} 
102 

103 ( +++++++++++++++++++++++++++++++++++++++++++ SPECIAL PASCAL UTILITIES } 
104 

105 {$IFC SOS_Plus_IO} 

106 Function Up_Load ( Var Char_Set ) : Boolean; 

107 Function At_Sign ( Var Object ) : Integer; 

108 { $ENDC} 
109 

110 IMPLEMENTATION 
111 

112 { SOS interface is implemented in 6502 assembly } 
113 

114 END. 
115 

116 { the end ) 

117 
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